home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / hexer / mpth_17.exe / {app} / scripts / start-stop / startup.mps < prev   
Encoding:
Text File  |  2005-05-22  |  1.3 KB  |  72 lines
  1. INCLUDE 'def.mps'
  2. OPTION UNDO, 0
  3. call DEC_TEXT_CONV
  4.  
  5. DEF reg envparse("%appregkey%\\openfiles")
  6.  
  7. var f file d dword
  8.  
  9. = check if only an untitled window is open
  10. if file_count > 1
  11.   end
  12. endif
  13.  
  14. if file_count == 1
  15.   if (textupper(files(0)) != 'UNTITLED1') and (textupper(files(0)) != 'UNBENANNT1')
  16.     end
  17.   endif
  18.   = file must be empty
  19.   if textupper(files(0)) == 'UNTITLED1'
  20.     currentfile='UNTITLED1'
  21.   else
  22.     currentfile='UNBENANNT1'
  23.   endif
  24.   f = fileopen('::current','r')
  25.   d = filesize(f)
  26.   fileclose f
  27.   if d != 0
  28.     end
  29.   endif
  30.   !cmd.fileclose
  31. endif
  32.  
  33. = read files from registry and open them
  34. var filenames text
  35. if (not regread(reg, "files", @filenames)):end:endif
  36. if (filenames == ''):end:endif
  37. errorhandler skip1
  38. !cmd.FileOpen filenames
  39.  
  40. @@skip1
  41.  
  42. loop checkopenfile file_count
  43.  
  44. = read active file
  45. var act text
  46. if (not regread(reg, "active", @act)):end:endif
  47.  
  48. = set active file
  49. if (act != '') 
  50. errorhandler endlabel
  51.   currentfile=act
  52. endif
  53.  
  54. @@endlabel
  55. end
  56.  
  57.  
  58. @@checkopenfile
  59. var fn text
  60. var st dword co dword
  61. fn = files(loop)
  62. if (regread(reg, fn+":selstart", @st) and regread(reg, fn+":selcount", @co))
  63.   f = fileopen('::'+fn, 'rw')
  64.   errorhandler cof1
  65.   filesetprop f, "selstart", st
  66.   filesetprop f, "selcount", co
  67.   @@cof1
  68.   fileclose f
  69. endif
  70. return
  71.  
  72.